home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / voyagerng / install_voyager < prev    next >
Text File  |  1997-01-26  |  21KB  |  524 lines
  1. ;******************************************************************************
  2. ;         __  __                                     
  3. ;        / / / /                                    
  4. ;       / / / /______ __  __ ______  ______ ______ _____
  5. ;      / / / // __  / \ \/ // __  / / __  // ____// .__/
  6. ;     /  \/ // /_/ /   \  // __  / / /_/ // __/_ / /
  7. ;     \____//_____/    / //_/ /_/ _\__  //_____//_/
  8. ;                     /_/        /_____/   
  9. ;
  10. ; $VER: Voyager_Installer 1.1y (January-26-1997) 
  11. ; Installer by Robert C. Reiswig ©1995,1996,1997
  12. ; Voyager by Oliver Wagner ©1995,1996,1997
  13. ;
  14. ; If you wish to use any part of this installer you must ask. May not be 
  15. ; integrated/placed into any other package. Changes, suggestions or problems:
  16. ; voyager@vgr.com or vgr@best.com
  17. ;******************************************************************************
  18. (set Vkey 1) ; 0=NoKey, 1=LookForKey
  19.  
  20. ;*** System Stuff ***
  21. (set cpu (database "cpu"))  (set vblank (database "vblank"))
  22. (set graphmem (database "graphics-mem")) (set totmem (database "total-mem"))
  23. (set osver (/ (getversion "LIBS:version.library") 65536))
  24. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  25. (set fastmem (- totmem graphmem))
  26.  
  27. (if (= osver 37) (set workbench "2.0")) (if (= osver 38) (set workbench "2.1"))
  28. (if (= osver 39) (set workbench "3.0")) (if (= osver 40) (set workbench "3.1"))
  29. (if (= osver 41) (set workbench "3.2"))
  30.  
  31. (set cpu (database "cpu"))
  32. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 1))
  33. (if (= cpu 68020) (set #cpu 2)) (if (= cpu 68030) (set #cpu 3))
  34. (if (= cpu 68040) (set #cpu 4)) 
  35. (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 5) )
  36.  
  37. (set vernum1 (getversion "V")) (set ver1 (/ vernum1 65536))
  38. ;(set vernum1 (getversion "mui/StringNumeric.mcc")) (set ver1 (/ vernum1 65536)) 
  39.  
  40. (set rev1 (- vernum1 (* ver1 65536) ) ) (set Voyagerver (cat ver1 "." rev1))
  41.  
  42. (if (> (exists ("env:Language")) 0) (set lanfound (getenv "Language")) )
  43. (set lan 0)
  44.  
  45. (if (= "english"    lanfound) (set lan 0))  (if (= "deutsch"    lanfound) (set lan 1))
  46. (set #English    "English")  (set #Deutsch    "Deutsch")
  47.  
  48. (set mfound 0) (set newicon1 1) 
  49. (set keeper 1) (set firsttime 0)
  50.  
  51. ;********************************************************************
  52. ; English Strings
  53. ;********************************************************************
  54. (set #about (cat "\n\n\n\nWelcome to Voyager-NG " Voyagerver "\n\n\nCopyright © 1995-1997 by\n\nOliver Wagner\n") )
  55. (set #installup " Install or Update Voyager-NG")
  56. (set #clearcache " Clear Cache Directory")
  57. (set #task "\nWhat would you like to do?\n")
  58. (set #whereVoyager "Where do you wish to install Voyager-NG. The directory 'Voyager' will be created if it is not there. If a copy of Voyager-NG is found it will be backed up.")
  59. (set muiver "No Version Installed")
  60. (set #newermui "\nVoyager-NG needs version 3.6 or higher of MUI installed to work correctly.\n\nNow would be a good time to Upgrade!\n\nYou can find mui33usr.lha on Aminet in dev/gui\n\nIt looks like you have: \n\n")
  61. (set #need-os "\n\nVoyager-NG needs version 3.0 or higher of the Amiga OS installed to work correctly.\n\n It looks like you have: \n\n")
  62. (set #000used "\n\nThe 68000 version will be installed.") 
  63. (set #nompc "\nThe .MPC files for Voyager-NG can not be installed to 'mui:libs/mui'")
  64. (set #noreg1 "\nThe installer could not find 'S:Voyager.Key' or '")
  65. (set #noreg2 "' on your system. It also does not seem to be in the archive you are installing Voyager-NG from. You may need to get the archive again.\n\nThe installer will now run the Registration Utility, 'Register-Voyager'.")   
  66. (set #filethere1 "\n\nThe installer has found Voyager-NG version ")
  67. (set #filethere2 " at ")
  68. (set #filethere3 "\n\nThe file will be renamed to ")
  69. (set #filethere4 " and it will then be moved to ")
  70. (set #backuptoXXX "Back-UP to file named 'Voyager-NG.")
  71. (set #copyover "Copy Over Old Version")
  72. (set #oktodelete1 "\nIs it ok to delete the older Voyager-NG binary so that the Voyager-NG Directory can be made?\n")
  73. (set #oktodelete2 "\nIs it ok to delete the older _renamed_ Voyager-NG binary so that the Voyager-NG Directory can be made?\n")
  74. (set #Voyagerfound "\nThe Installer has found a copy of Voyager-NG already installed. What do you want to do?\n")
  75. (set #no030found "\n\nThe 68030+FPU Version of Voyager-NG, V030, was not found in this archive this is why the 68000 version was installed.")
  76. (set #newicon "\nDo you wish to copy over The Voyager-NG Icon from the archive? If you have any ToolTypes already set you should select no.\n")
  77. (set #nonewicon  "No  - ToolTypes already set.")
  78. (set #yesnewicon "Yes - Copy over Icon.")
  79. (set #yesnewicon "Yes - Copy over Icon.")
  80. (set #whatcat "\nSelect the Voyager-NG Language catalog you wish to install.\n")
  81. (set #wherecat "\nWhere do you wish to install the Voyager-NG Language Catalog? Default is ")
  82. (set #catnofind "Can not find this catalog in this Voyager-NG archive. You may need to get a newer archive.")
  83. (set #whattools "\nWhat Tools would you like to install? They will be placed in: ")
  84. (set #updatingmuic "\nUpdating the MUI Classes if needed.\n\n(#?.mcc & #?.mcp)")
  85. (set #nomuiarc "\nThe installer could not find the MUI dir in the archive. Because of this the MUI Classes used by Voyager-NG were not installed.\n\n If you are Updating Voyager-NG then this is not a problem. If it is your first time installing Voyager-NG you will need to get an archive with these files.")
  86. (set #whatdocs "\nWhat Voyager-NG documentation would you like to install?\n")
  87. (set #wheredocs "Where would you like the Voyager-NG documentation you selected to be installed?")
  88. (set #byebye (cat "\nVoyager-NG Install Complete!\n\n" ))
  89.  
  90. (set #askcpu "\nWhat version of Voyager-NG would you like to install?\n")
  91. (set #noregdir "\nThe Register-Voyager directory was not found. This means that the archive has been altered or is bad. Please get another copy of the Voyager-NG Archive.\n\nOR\n\nThe Keyfile is missing. Please contact your REG site.")
  92. (set #updatesetpatch "\nThe installer looked for 'c:setpatch' and did not find it or you have a version lower then 40.16. Voyager-NG needs version 40.16 to work correctly. You wany want to upgrade soon. (NOTE: if you keep 'setpatch' in a different place than 'c:' and its 40.16 or higher then this message is void.)")
  93. (set #updateinstaller "\nJust to let you know ESCOM AG has released a new version of the installer program.\n\n\nVersion 43.3 can be found on Aminet in:\n\n/util/misc/Installer-43_3.lha\n\n\nYou might want to upgrade soon, if you can.")
  94.  
  95.  
  96. ;********************************************************************
  97. ; German Strings
  98. ;********************************************************************
  99. (if (= lan 1) (set OlliShareSomePizza TRUE) )
  100.  
  101. ;********************************************************************
  102. ; Hello
  103. ;********************************************************************
  104. (message #about)
  105. (welcome) 
  106.  
  107. ;********************************************************************
  108. ; Checks for MUI & OS versions
  109. ;********************************************************************
  110. (set ver 0)
  111. (if (<> (getassign "mui") "")
  112. (
  113.   (if (exists "mui:mui") 
  114.    (
  115.     (set vernum (getversion "mui:mui") )
  116.     (set ver (/ vernum 65536)) (set rev (- vernum (* ver 65536) ) )
  117.  
  118.     (if (= ver 7) (set muiver "2.0") )   (if (= ver 8) (set muiver "2.1") )
  119.     (if (= ver 9) (set muiver "2.2") )   (if (= ver 10) (set muiver "2.3") )
  120.     (if (= ver 11) (set muiver "3.0") )  (if (= ver 12) (set muiver "3.1") )
  121.     (if (= ver 13) (set muiver "3.2") )  (if (= ver 14) (set muiver "3.3") )
  122.     (if (= ver 15) (set muiver "3.4") )  (if (= ver 16) (set muiver "3.5") )
  123.     (if (= ver 17) (set muiver "3.6") )  (if (= ver 18) (set muiver "3.7") )
  124.    )
  125.   )
  126. )
  127. )
  128.  
  129. (if (< ver 17)   ( (message (cat #newermui muiver))   (set cpuPick 0) ))
  130. (if (< osver 39) ( (message (cat #need-os workbench)) (set cpuPick 0) ))
  131.  
  132. ;********************************************************************
  133. ; check for Register-Voyager-NG
  134. ;********************************************************************
  135. (if (OR (exists "Register-Voyager") (exists "Voyager.KEY"))
  136.  (set tempz 0) (abort #noregdir)
  137. )
  138. ;********************************************************************
  139. ; Ask where to put Voyager-NG & Make dir if needed
  140. ;********************************************************************
  141. (set Package (getassign "AmiTCP"))
  142. (if (= Package "") (set Package (getassign "Inet")) )
  143.  
  144. (set Voyagerdir  (askdir (prompt #whereVoyager)
  145.                 (help   #whereVoyager)
  146.                      (default Package)
  147.                )  
  148. )
  149.  
  150. (set where Voyagerdir)
  151.  
  152. ;********************************************************************
  153. ; Check for Key file
  154. ;********************************************************************
  155. ;(if (AND (= Vkey 1) (OR (= (exists "Voyager.Key") 0) (OR (= (exists "S:Voyager.Key") 0)  (= (exists (tackon where "Voyager.Key")) 0) ) ) )
  156. ; (
  157. ;  (message (cat #noreg1 (tackon where "Voyager/Voyager.Key") #noreg2))
  158. ;  (run (cat "run Register-Voyager") )
  159. ;  ;;** (exit (quiet))
  160. ; )
  161. ;) 
  162.  
  163. ;********************************************************************
  164. ; Check to see if Voyager-NG is already there, if so ask to backup
  165. ;********************************************************************
  166. (if (= 1 (exists (tackon where "V") ) ) 
  167.   (
  168.     (set vernum1 (getversion (tackon where "V") ))
  169.     (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  170.     (set Voyager_old (cat ver1 "." rev1))
  171.  
  172.     (message (cat #filethere1 ver1 "." rev1 #filethere2 where #filethere3 
  173.                   (cat "V" Voyager_old) #filethere4 (tackon Voyagerdir "V") )
  174.     )
  175.  
  176.     (copyfiles (source (tackon where "V"))
  177.                (dest where) 
  178.                (infos)
  179.                (newname (cat "V." Voyager_old))
  180.     )
  181.     
  182.     (delete (tackon Voyagerdir "V") (prompt #oktodelete1) (help #oktodelete1) (confirm) (infos)) 
  183.  
  184.     (if (< (exists (tackon Voyagerdir "V")) 2) (makedir (tackon Voyagerdir "V") (infos)) )    
  185.  
  186.     (copyfiles (source (tackon where (cat "V." Voyager_old) ))
  187.                        (dest (tackon Voyagerdir "V")) 
  188.                        (infos)
  189.                
  190.     )
  191.  
  192.     (delete (tackon where (cat "V" Voyager_old)) (prompt #oktodelete2) (help #oktodelete2) (confirm) (infos) ) 
  193.  
  194.     ;(set firsttime 1)
  195.  
  196.   )
  197. )
  198.  
  199. (if (< (exists (tackon Voyagerdir "Voyager")) 2) (makedir (tackon Voyagerdir "Voyager") (infos)) )
  200.  
  201. (if (exists "/V-NG-Prerelease1.info")
  202.  (copyfiles (source "/V-NG-Prerelease1.info") (dest (tackon "/" where)) (newname "Voyager.info") (optional "nofail") ) 
  203. )
  204.  
  205.  
  206. (set where (tackon Voyagerdir "Voyager"))
  207. (set @default-dest where)
  208.  
  209. ;********************************************************************
  210. ; Check for old & backup
  211. ;********************************************************************
  212. (if (exists (tackon where "V")) 
  213.   (
  214.       (set vernum1 (getversion (tackon where "V") ))
  215.       (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  216.       (set Voyager_old (cat ver1 "." rev1))
  217.  
  218.       (set keeper  (askchoice (choices  (cat #backuptoXXX Voyager_old "'")  #copyover)
  219.                      (prompt #Voyagerfound)
  220.                  (help   #Voyagerfound)
  221.                      (default 0)
  222.                )
  223.       )    
  224.  
  225.       (if (= keeper 0)
  226.          (copyfiles (source (tackon where "V"))
  227.                      (dest where) 
  228.                      (infos)
  229.                      (newname (cat "V" Voyager_old))
  230.          )
  231.       )          
  232.  
  233.       (set firsttime 1)
  234.   )
  235. )
  236.  
  237. ;********************************************************************
  238. ; Copy over correct Voyager and Icon if wanted
  239. ;********************************************************************
  240. (set gcpu 0)
  241. (if (AND (> #cpu 1) (exists ("V030")) ) (set gcpu 1) ) 
  242.  
  243.  
  244.  
  245. (set cpuPick (askchoice (choices "68000" "68030+FPU")
  246.              (prompt #askcpu)
  247.                      (help   #askcpu)
  248.                    (default gcpu)
  249.       )
  250. )
  251.  
  252. (if (AND (= cpuPick 1) (exists ("V030")) )
  253.  (copyfiles (source "V030") (dest where) (newname "V") (optional "nofail") )
  254.  (copyfiles (source "V") (dest where) (optional "nofail") )
  255. )
  256.  
  257. (if (AND (> #cpu 1) (= (exists ("V030")) 0) )
  258.  (message #no030found)
  259. )
  260.  
  261. (if (= firsttime 0)  (copyfiles (source "V.info") (dest where) (optional "nofail") ) )
  262.  
  263. (if (OR (= keeper 0) (= (exists (tackon where "V.info")) 0))
  264.   (
  265.    (set newicon (askchoice (choices #yesnewicon #nonewicon)
  266.                            (prompt #newicon)
  267.                        (help   #newicon)
  268.                            (default 0)
  269.             )
  270.    )
  271.   
  272.    (if (= newicon 0) 
  273.      (copyfiles (source "V.info") (dest where)  (optional "nofail") )
  274.    )
  275.   )
  276. )
  277.  
  278.  
  279. ;********************************************************************
  280. ; Copy over Other stuff
  281. ;********************************************************************
  282. (if (exists ("RegisterVoyager"))
  283.  (copyfiles (source "RegisterVoyager") (dest where)  (infos) (optional "nofail") )
  284. )
  285.  
  286. ;*** Copy Key 
  287. (if (> (exists "Voyager.KEY") 0)
  288.  (copyfiles (source "Voyager.KEY") (dest where) (infos) (optional "nofail") ) 
  289. )
  290.  
  291. (if (> (exists "TransferAnim") 0)
  292.  (copyfiles (source "TransferAnim") (dest where) (infos) (optional "nofail") ) 
  293. )
  294.  
  295. (makedir (tackon where "Cache"))
  296. (if (> (exists "CacheBrowser") 0)
  297.  (copyfiles (source "CacheBrowser") (dest where) (infos) (optional "nofail") ) 
  298. )
  299. ;******************************************************************************** 
  300. ; Copy over Plugins stuff
  301. ;********************************************************************************
  302. (if (< (exists (tackon where "Plugins")) 2) (makedir (tackon where "Plugins") (infos)) )    
  303. (if (exists "Plugins.info")
  304.  (copyfiles (source "Plugins.info") (dest where) (optional "nofail") ) 
  305. )
  306.  
  307. (if (> (exists "Plugins") 0)
  308.   (foreach "Plugins" "#?"
  309.      (copylib (source (tackon "Plugins" @each-name)) (dest (tackon where "Plugins")) (optional "nofail") ) 
  310.   )
  311. )
  312. ;******************************************************************************** 
  313. ; Copy over rexx stuff
  314. ;********************************************************************************
  315. (if (< (exists (tackon where "rexx")) 2) (makedir (tackon where "rexx") (infos)) )    
  316. (if (exists "Rexx.info")
  317.  (copyfiles (source "Rexx.info") (dest where) (optional "nofail") ) 
  318. )
  319.  
  320. (if (> (exists "rexx") 0)
  321.   (foreach "rexx" "#?"
  322.      (copylib (source (tackon "rexx" @each-name)) (dest (tackon where "rexx")) (optional "nofail") ) 
  323.   )
  324. )
  325.  
  326. ;******************************************************************************** 
  327. ; Copy over Submissions stuff
  328. ;********************************************************************************
  329. (if (< (exists (tackon where "Submissions")) 2) (makedir (tackon where "Submissions") (infos)) )    
  330. (if (exists "Submissions.info")
  331.  (copyfiles (source "Submissions.info") (dest where) (optional "nofail") ) 
  332. )
  333.  
  334. (if (> (exists "Submissions") 0)
  335.   (foreach "Submissions" "#?"
  336.      (copylib (source (tackon "Submissions" @each-name)) (dest (tackon where "Submissions")) (optional "nofail") ) 
  337.   )
  338. )
  339.  
  340. ;********************************************************************
  341. ; Copy over DOCS (home.html and Vpics dir) & Other Docs
  342. ;********************************************************************
  343. (set docs (askoptions (choices " Docs In HTML format" " V.readme") ;" V.history"
  344.               (prompt #whatdocs) 
  345.                       (help #whatdocs)
  346.                   (default 3)
  347.       )
  348. )
  349.  
  350. (if (<> docs 0)
  351.  (
  352.    ;(set docsdir (askdir (prompt (cat #wheredocs " (V.readme)" )) ; & V.history
  353.    ;                (help   (cat #wheredocs " (V.readme)" )) ; & V.history
  354.    ;                   (default where)
  355.    ;             )  
  356.    ;)
  357.  
  358.    (set docsdir where)  
  359.  
  360.    (if (IN docs 0)
  361.     (
  362.       (if (< (exists (tackon where "Voyager_home")) 2) (makedir (tackon where "Voyager_home") (infos)) )    
  363.       (if (< (exists (tackon where "Voyager_home/images")) 2) (makedir (tackon where "Voyager_home/images") (infos)) )    
  364.       (if (exists "Voyager_home.info")
  365.         (copyfiles (source "Voyager_home.info") (dest where) (optional "nofail") ) 
  366.       )
  367.  
  368.       (if (exists "Voyager_home")
  369.         (foreach "Voyager_home" "#?.html"
  370.            (copyfiles (source (tackon "Voyager_home" @each-name)) (dest (tackon where "Voyager_home")) (optional "nofail") ) 
  371.         )
  372.       )
  373.  
  374.       (if (exists "Voyager_home/images")
  375.         (foreach "Voyager_home/images" "#?.gif"
  376.           (copyfiles (source (tackon "Voyager_home/images" @each-name)) (dest (tackon where "Voyager_home/images")) (optional "nofail") ) 
  377.         )
  378.       )
  379.     )
  380.    )
  381.  
  382.    (if (IN docs 1) (copyfiles (source "V.readme") (dest docsdir) (infos) (optional "nofail") ) )
  383.    (if (IN docs 2) (copyfiles (source "V.history") (dest docsdir) (infos) (optional "nofail") ) )
  384.  )
  385. )
  386.  
  387. ;********************************************************************
  388. ; Copy over TOOLS if wanted
  389. ;********************************************************************
  390. (if (> (exists "Tools") 0)
  391.  (
  392.   (set tools (askoptions (choices " ClearCacheDir" " Uninstall")
  393.                    (prompt (cat #whattools (tackon where "Tools\n"))) 
  394.                          (help   (cat #whattools (tackon where "Tools\n")))
  395.                      (default 1)
  396.              )
  397.   )
  398.  
  399.   (if (<> tools 0)
  400.    (
  401.      (if (< (exists (tackon where "Tools")) 2) (makedir (tackon where "Tools") (infos)) )    
  402.      (set toolsdir (tackon where "Tools"))   
  403.  
  404.      (if (IN tools 0) (copyfiles (source "Tools/ClearCacheDir") (dest toolsdir) (infos) (optional "nofail") ) )
  405.      (if (IN tools 1) (copyfiles (source "Tools/Uninstall") (dest toolsdir) (infos) (optional "nofail") ) )
  406.    
  407.    )
  408.   )
  409.  
  410.  )
  411. )
  412.  
  413. ;********************************************************************
  414. ; Copy over #?.mpc|#?.mcc (Need to be in mui:libs/mui)
  415. ;********************************************************************
  416. (if (<> (getassign "mui") "")
  417. (
  418.   (if (> (exists "mui:libs/mui") 0) 
  419.    (
  420.     (if (= (exists "mui") 2)
  421.      (
  422.         (working #updatingmuic)
  423.   
  424.         (foreach "mui" "#?.mcp"
  425.            (copylib (source (tackon "mui" @each-name)) (dest "mui:libs/mui") (optional "nofail") ) 
  426.         )
  427.     
  428.         (foreach "mui" "#?.mcc"
  429.            (copylib (source (tackon "mui" @each-name)) (dest "mui:libs/mui") (optional "nofail") ) 
  430.         )
  431.      )
  432.  
  433.      (message #nomuiarc)
  434.  
  435.     )
  436.    
  437.    )
  438.  
  439.    (message (cat #newermui muiver #nompc)) 
  440.   )
  441. )
  442. )
  443.  
  444.  
  445. ;********************************************************************
  446. ; Reg stuff 
  447. ;********************************************************************
  448. (if (exists"Register-Voyager") 
  449.  (
  450.   (if (< (exists (tackon where "Register-Voyager")) 2) (makedir (tackon where "Register-Voyager") (infos)) )    
  451.   (if (exists "Register-Voyager.info")
  452.     (copyfiles (source "Register-Voyager.info") (dest where) (optional "nofail") ) 
  453.   )
  454.   (set whereR (tackon where "Register-Voyager"))
  455.  
  456.  
  457.   (set whatreg  (askchoice (choices "English"  "Deutsch" "Francais" "Svenska" )
  458.                            (prompt "What Registration Files (Language) would you like to install?")
  459.                        (help   "What Registration Files (Language) would you like to install?")
  460.                         (default 0)
  461.                 )  
  462.   )
  463.  
  464.   (if (= whatreg 0) ((set basereg "English")  (set baseregTT "English") ) )
  465.   (if (= whatreg 1) ((set basereg "Deutsch")  (set baseregTT "Deutsch") ) )
  466.   (if (= whatreg 2) ((set basereg "Francais") (set baseregTT "French")  ) )
  467.   (if (= whatreg 3) ((set basereg "Svenska")  (set baseregTT "Svenska")  ) )
  468.  
  469.   (if (exists "Register-Voyager/RegistrationUtility") 
  470.     (copyfiles (source "Register-Voyager/RegistrationUtility")
  471.                (dest whereR) 
  472.     )
  473.   )
  474.  
  475.   (if (exists (tackon "Register-Voyager" (cat "Regtool-" basereg ".info")) )
  476.     (copyfiles (source (tackon "Register-Voyager" (cat "Regtool-" basereg ".info")) )
  477.                (dest whereR) 
  478.                (newname "RegistrationUtility.info")
  479.     )
  480.   )
  481.  
  482.   (if (exists (tackon "Register-Voyager" (cat "Reg_" basereg ".guide")) ) 
  483.     (copyfiles (source (tackon "Register-Voyager" (cat "Reg_" basereg ".guide")))
  484.                (dest whereR) 
  485.                (infos)
  486.     )
  487.   )
  488.  
  489.   (if (exists (tackon "Register-Voyager" (cat "Reg_" basereg ".doc")) )
  490.     (copyfiles (source (tackon "Register-Voyager" (cat "Reg_" basereg ".doc")))
  491.                (dest whereR) 
  492.                (infos)
  493.     )
  494.   )
  495.  
  496.  
  497.  )
  498. )
  499. ;********************************************************************
  500. ; Check on Setpatch 
  501. ;********************************************************************
  502. (set vernum1 (getversion "c:setpatch")) (set ver1 (/ vernum1 65536)) 
  503. (set rev1 (- vernum1 (* ver1 65536) ) ) (set setpatchver (cat ver1 "." rev1))
  504. (set current_setpatch "40.16")
  505. (if (< setpatchVer current_setpatch) (message #updatesetpatch) )
  506.  
  507. ;********************************************************************
  508. ; Check on New installer 
  509. ;********************************************************************
  510. (set InstallerVer 0)
  511. (set vernum1 @installer-version) (set ver1 (/ vernum1 65536)) 
  512. (set rev1 (- vernum1 (* ver1 65536) ) ) (set InstallerVer (cat ver1 "." rev1))
  513. (set current_installer "43.3")
  514. (if (< InstallerVer current_installer) (message #updateinstaller) )
  515.  
  516. ;********************************************************************
  517. ; End Bye 
  518. ;********************************************************************
  519. (if (> (exists ("c:multiview")) 0) (set #mpath "c:") )
  520. (if (> (exists ("sys:Utilities/multiview")) 0) (set #mpath "sys:Utilities") )
  521. (run (cat "run " #mpath "/multiview V.readme") )
  522.  
  523. (exit #byebye)
  524.